home *** CD-ROM | disk | FTP | other *** search
/ HeiBe Erotik / HeiBe Erotik.iso / erovoll / dice / dice3.dir / 00077_Script_77 < prev    next >
Text File  |  1979-12-31  |  1KB  |  32 lines
  1. on exitFrame
  2.   Global WurfWerte, WahlStatus, WurfWahl
  3.   puppetsound 1, "wuerfeln"
  4.   repeat with i=1 to 5
  5.     if getAt(WurfWahl,i)=0 then
  6.       setAt WurfWerte i, random(6)
  7.     end if
  8.   end repeat  
  9.   set the member of sprite 45 = member getAt(WurfWerte,1) of castLib "W1"
  10.   set the member of sprite 46 = member getAt(WurfWerte,2) of castLib "W2"
  11.   set the member of sprite 47 = member getAt(WurfWerte,3) of castLib "W3"
  12.   set the member of sprite 48 = member getAt(WurfWerte,4) of castLib "W4"
  13.   set the member of sprite 49 = member getAt(WurfWerte,5) of castLib "W5"
  14.   updatestage
  15.   repeat while the stilldown
  16.     repeat with i=1 to 5
  17.       if getAt(WurfWahl,i)=0 then
  18.         setAt WurfWerte i, random(6)
  19.       end if
  20.     end repeat 
  21.     set the member of sprite 45 = member getAt(WurfWerte,1) of castLib "W1"
  22.     set the member of sprite 46 = member getAt(WurfWerte,2) of castLib "W2"
  23.     set the member of sprite 47 = member getAt(WurfWerte,3) of castLib "W3"
  24.     set the member of sprite 48 = member getAt(WurfWerte,4) of castLib "W4"
  25.     set the member of sprite 49 = member getAt(WurfWerte,5) of castLib "W5"
  26.     updatestage
  27.   end repeat
  28.   sound stop 1
  29.   set WahlStatus=1
  30.   go to "Init"
  31. end
  32.